home *** CD-ROM | disk | FTP | other *** search
- //----- Bugs find the way out......... Miller 7/14/92
-
-
-
- #include "colors.inc"
- #include "shapes.inc"
- #include "shapes2.inc"
- #include "textures.inc"
- #include "stone.inc"
- #include "hill5.inc"
- #include "world66.inc"
- #include "bug.inc"
- #include "stem1.inc"
-
-
-
-
-
- camera {
- location <0 1600 -3500>
- direction <0 0 1.8>
- up <0 1 0>
- right <1.333 0 0>
- look_at <0 800 0>
- }
-
-
- //-------light
- object { light_source { <500 50000 1000> color White } }
-
- //-------light
- object { light_source { <-7000 60000 -6000> color Gold } }
-
- //-------light
- object { light_source { <6000 3000 -100> color White } }
-
-
-
- #declare gold2 =
- texture {
- 0.02
- ambient 0.3
- diffuse 0.5
- colour red 0.64 green 0.51 blue 0.05
- reflection 0.6
- brilliance 8
- specular 0.5
- }
-
-
-
-
-
- //**************** Build Scene **************************************
-
-
-
-
- //---- Locator Poles
- #declare Pole =
- composite {
- object {
- quadric { Cylinder_Y scale <20 1 20> }
- texture {
- gradient <0 1 0>
- color_map {
- [0 .25 color Green color Green]
- [.25 .5 color Yellow color Yellow]
- [.5 .75 color Red color Red]
- [.75 .95 color Blue color Blue]
- [.95 1 color White color White]
- }
- ambient .8
- diffuse .5
- phong 1
- scale <100 100 100>
- translate <0 0 0>
- }
- }
- //--- Fixed Mark
- object {
- union {
- Square_Y scale <100 1 100> translate <0 1200 0> }
- texture {
- color Violet ambient .5
- }
- }
- }
-
-
-
-
-
- //composite { Pole translate <700 0 1500> }
- //composite { Pole translate <-850 0 1000> }
- //composite { Pole translate <-1300 0 650> }
- //composite { Pole translate <750 0 -900> }
-
-
-
-
-
-
- //---- Back right Bug
- composite { Bug
- scale <12 12 12>
- rotate <0 -90 0>
- rotate <0 0 0>
- translate <740 620 1550>
- }
-
-
-
-
- //---- Bug leaving water
- composite { Bug
- scale <12 12 12>
- rotate <0 180 0>
- rotate <0 0 60>
- translate <800 400 550>
- }
-
- //---- Left Bug thinking about going into the water
- composite { Bug
- scale <12 12 12>
- rotate <0 -160 0>
- rotate <0 0 0>
- translate <-1300 660 800>
- }
-
- //--- Front Bug getting the hell out of there
- composite { Bug
- scale <12 12 12>
- rotate <0 -110 0>
- rotate <40 0 0>
- translate <0 550 -1600>
- }
-
-
-
-
-
- composite { stem1
- scale <40 40 40>
- rotate <0 0 0>
- translate <-1000 400 1800>
- }
-
- composite { stem1
- scale <30 30 30>
- rotate <0 50 0>
- translate <-800 500 1900>
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ə